home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / READREAL.PAS < prev    next >
Pascal/Delphi Source File  |  1989-06-30  |  358b  |  16 lines
  1. PROGRAM read_some_real_variables;
  2.  
  3. VAR index : BYTE;
  4.     number            : INTEGER;
  5.     real1,real2,real3 : REAL;
  6.  
  7. BEGIN
  8.  
  9. WRITELN('Read some REAL variables');
  10. For index := 1 TO 5 DO
  11.   BEGIN
  12.     WRITE('Enter an integer and 3 reals ');
  13.     READLN(number,real1,real2,real3);
  14.     WRITELN(number:20,real1:12:3,real2:12:3,real3:12:3);
  15.   END;
  16. END.